This is METAFONT, WAITS Version 0.6 (preloaded base=plain 84.12.20)  22 DEC 1984 12:53
**mobius
(MOBIUS.MF[MF,DEK]
1.5 subdivisions per knot [0]
3 subdivisions per knot
! Interruption.
<to be read again> 
                   currentpicture
cullit->cull.currentpicture
                           .excluding(-infinity,0)
overdraw->...ll.temp.excluding(0,0);cullit
                                          ;addto.currentpicture.also-...
<to be read again> 
                   ;
<for(2)> link((EXPR0)+4*3-1);
                             link(4*3-(EXPR0));showit; ENDFOR
<for(3)> ...);link(4*(SUFFIX0)-k);showit;endfor
                                          .endchar; ENDFOR
l.19 endfor
           
? x
Output written on MOBIUS.GF[MF,DEK] (1 character, 3064 bytes).